0 REM ORIGINAL TITLE 'SNAKE'
1 REM ORIGINAL PET VERSION BY PETE ROWE
2 REM ADAPTED FOR THE VIC BY DAVID      MALMBERG
3 REM**REVISED, UPDATED AND ADAPTED TO  THE COMMODORE 64 BY ROGER D BURGE #2667,
4 REM**TORONTO PET USERS GROUP, CANADA
99 DIMCH(80):CH(.)=30:CH(80)=22:CH(39)=60:CH(41)=62
100 G=1:DE=2:GOSUB4000
101 T9=39:F0=40:BS=32:SX=6:E1=81:F1=41:TW=20
102 GOSUB2100
550 PRINT"[142]":POKE53281,G:PRINT"[147]":POKE53281,.:POKE53280,.
551 FORJ=SC+F0*DETOSC+119:POKEJ,160:POKEJ+880,160:POKEJ+M,10:POKEJ+880+M,10:NEXT
560 FORJ=SC+120TOSC+920STEPF0:POKEJ,160:POKEJ+T9,160:POKEJ+M,10:POKEJ+T9+M,10:NEXT
561 PRINT"[156]PLAYER 1      SLITHER DUEL      [156]PLAYER 2";
562 PRINT"                                        "
563 IFN=.ORN=GTHENPRINT" [156]YOUR 64"
564 IFN=.THENPRINT"[156]YOUR 64[215]
565 [153]"CLR"[201]([196](S(.)),[195]([196](S(.)))[171]G)
566 [153]"CLR";[166]T9[171][195]([201]([196](S(G)),[195]([196](S(G)))[171]G)));[196](S(G))
600 Q[178]20:QD[178].3
610 [129]I[178].[164]G:D(I)[178]G[170]T9[172][181](2[172][187](.))
620 L(I)[178]F0[172][181](15[172][187](.))[170][181](BS[172][187](.)[170]4)[170]SC[170]200:[130]
621 [139]D(.)[178]F0[167][151]781,F0:[151]782,.:[137]623
622 [151]781,G:[151]782,.
623 [139]D(1)[178]F0[167][151]253,F0:[151]254,.:[137]625
624 [151]253,G:[151]254,.
625 [129]U[178]L(.)[171]120[164]L(.)[170]120[169]F0:[139]L(G)[178]U[167]610
626 [130]U
627 [129]U[178]L(.)[171]3[164]L(.)[170]3:[139]L(G)[178]U[167]610
628 [130]U
630 T[178]TI:Q[178]Q[171]QD:[129]I[178].[164]G:F[178]G:[158]M(I):D(I)[178][194](Z(I))[171][194](X(I))
700 [139]N[178]DE[167]720
710 [139]I[172]N[178].[175][194](L(I)[170]DE[172]D(I))[179][177]BS[167]740
720 F[178]DE:[139][194](L(I)[170]D(I))[178]BS[167]840
730 [139]I[170]N[177]G[167]920
740 A[178]F1[171][182](D(I)):[129]J[178]A[164]TW[172]A[169]A
750 [129]K[178][171]G[164]G[169]DE
760 [139][194](L(I)[170]K[172]J)[179][177]BS[167]780
770 [130]K:[130]:K[178]G
780 [139]K[178]G[167]820
790 [139][194](L(I)[170]J)[178]BS[167]830
800 [139]J[178]A[167][145]F[137]720,920
810 [139][187](.)[177].5[167]830
820 A[178][171]A
830 D(I)[178]A
840 [151]L(I),E1[170]SX[172]I:L(I)[178]L(I)[170]D(I)
860 [151]L(I),CH(D(I)[170]F0)
890 [130]I
900 [139]TI[171]T[179]Q[167]900
910 [137]630
920 S(I)[178]S(I)[170]G:QD[178]QD[170].1:WI[178]I:[139]N[178]DE[167]940
940 [151]L(I),214:[151]L(I)[170]M,13
950 [141]3000
990 [139]WI[167][153]S1$;[166]T9[171][195]([201]([196](S(G)),[195]([196](S(G)))[171]G)));[196](S(G))
1010 [139]WI[178].[167][153]S0$;[201]([196](S(.)),[195]([196](S(.)))[171]G):T[178]TI
1030 [153]"LIST OPTIONS: "
1031 [153]"LIST F1=REPLAY     F3=RESTART       F5=QUIT "
1032 [141]1060:[139]A$[178]"INPUT"[167]550
1033 [139]A$[178]"DIM"[167][151]53281,1:[151]53280,1:[153]"LOAD":[141]2310:S(.)[178].:S(1)[178].:[137]550
1034 [139]A$[178]"READ"[167][153]"LOAD":[128]
1035 [137]1032
1060 [151]198,.
1061 [161]A$:[139]A$[178]""[167]1061
1070 [142]
2100 SC[178]256[172][194](648):M[178]55296[171]SC:[151]53281,G:[151]53280,G
2130 [153]"LOADRETURN         WELCOME TO THE GAME OF         "
2150 [153]"              SLITHER DUEL              "
2160 [153]"WANT INSTRUCTIONS? ";
2170 [141]1060:[139]A$[178]"N"[167][153]"ONONONONON":[137]2310
2180 [139]A$[179][177]"Y"[167]2170
2181 [153]"LOAD              SLITHER DUEL              "
2190 [153]"  THIS IS A GAME FOR 1 OR 2 PLAYERS.
2210 PRINT"  [212]HE OBJECT IS TO NOT RUN INTO ANY     OCCUPIED SPACE OR WALL.  ";
2240 PRINT"THE PLAYER WHO DOES SO FIRST LOSES."
2300 PRINT"[144]TO CONTROL YOUR SNAKE:"
2310 PRINT"PLAYER 1 USES JOYSTICK #1. [144]<[215][215][215][215][215][215][215][215][215][215]
2320 [153]"PLAYER 2 USES JOYSTICK #2. STOP<(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
2420 PRINT"SELECT":PRINT "[144]0, 1 OR 2 PLAYERS?"
2421 PRINT"IF YOU SELECT 0 THEN YOUR 64 WILL PLAY  ITSELF. (DEMO)
2450 [153]"IF YOU SELECT 1 THEN YOU ARE PLAYER 1,  YOUR 64 IS PLAYER 2.
2451 PRINT" ENTER SELECTION! 
2460 [141]1060:N[178][197](A$):[139]A$[179]"0"[176]A$[177]"2"[167]2460
2470 [139]N[172](N[171]G)[172](N[171]DE)[179][177].[167]2460
2480 R[178].:S(.)[178].:S(G)[178].:S0$[178]"SYSPLAYER 1CMDCMDCMDCMDCMDCMDCMDCMD"
2490 S1$[178]"SYSYOUR  64"
2500 [139]N[178].[167]S0$[178]"SYSYOUR 64(null)CMDCMDCMDCMDCMDCMDCMDCMD"
2510 [139]N[178]DE[167]S1$[178]"SYSPLAYER 2"
2540 [142]
3000 [151]SV[170]5,53:[151]SV[170]SX,69:[151]SV[170]4,33:[151]SV[170]1,5:[151]SV,71
3001 [129]F[178]G[164]700:[130]:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
3010 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,3:[151]SV,244
3015 [129]F[178]G[164]700:[130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV,.:[151]SV[170]5,53
3020 [151]SV[170]6,69:[151]SV[170]4,33:[151]SV[170]G,DE:[151]SV,163:[129]F[178]G[164]900
3030 [130]:[151]SV[170]4,.:[151]SV[170]G,.:[151]SV  ,.:[142]
4000 [129]T[178]828[164]878:[135]A:[151]T,A:[130]:M(.)[178]828:Z(.)[178]251:X(.)[178]252
4005 [129]T[178]879[164]935:[135]A:[151]T,A:[130]:M(1)[178]879:Z(1)[178]253:X(1)[178]254
4080 [131]173,.,220,41,15
4081 [131]201,7,208,7,162,2,160,1,76,106,3
4082 [131]201,13,208,7,162,80,160,40,76,106,3
4083 [131]201,11,208,7,162,.,160,1,76,106,3
4084 [131]201,14,208,4,162,.,160,40
4085 [131]134,251,132,252,96
4090 [131]173,1,220,41,15
4091 [131]201,7,208,9,169,1,133,253,169,.,133,254,96
4092 [131]201,13,208,9,169,40,133,253,169,.,133,254,96
4093 [131]201,11,208,9,169,.,133,253,169,1,133,254,96
4094 [131]201,14,208,8,169,.,133,253,169,40,133,254,96
5000 SV[178]54272:[129]T[178]SV[164]SV[170]24:[151]T,.:[130]
5010 [151]SV[170]24,15:[142]